/*  slmshort.cpp  by K.Tsuru  */
// function ID = 206  DRADIX, BRADIX
/**********************
SLong class
set a short value v
within two figures
***********************/
#ifndef SN_H
#include "sn.h"
#endif
void SLong::SetShort(short v){
//When sign == UNDECIDED  Sign() yields an error.
    if(RawSign()) SetZero();
    if(v == 0) return;
    SetSign(v);
    fType aV = (fType)abs(v), rdx = Radix();
    if(aV < rdx) figure[0] = aV;
    else {
        if((figure[0] = aV%rdx) == 0) aTail = 1u;
        figure[1] = aV/rdx;     aHead = 1u;
    }
}